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SASCERC = ASSOCIATE AND CREATE 


- A 
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UE: RESSSRDATESM REE Cont “ESEPCTORL QLREOE YAKS taece Feemans1 | P0* 


fare fae A ey enesERss 2" et cish el 4 ee HES CODE EXECUTION 


voe-000 EXESAS 


GG 


on 


Swo 


meth ( SOCIATED 


! SHEERS UVR ale, ae 8 areas o 
: NTERLOCK ERRORS FOR BOTH 
*thall cs: Bie gates Pac a de ge 
BEQL R TO USE Se CEB JUST CREATED 


RO ; ser ADR OF CEB JUST CREATED 

SDEANONPAGED ; RELEASE SLA 8 

$B_PORT(R4) ,R3 4 PORT # INDEX X (DESTROYED BY JSB) 

$ SVASLAVE (RTT) CRS2,A2" ho: j, Set ADR i LAVE CE 
ASSOCIATE ul! H HOLD ait Ave ces 


gy ie 
hath 


PEDERI EEE 
COW"O@un"eo 


§8 R rad 
08 a2 Ri & B_STS(R6) ceBSB ST che} SEI ASLave’§ yin S SAME AS MASTER 
4A Q MOV W~PROT(R6S , CEBSO_ PROT a2) Y PROTECTION FROM DUPLICATE 
BRW LIZE SLAVE cee AGAIN 


ow wer © 
i 


$V_VALID ceBst ceariined } aitiA ; INDICATE ENTRY IS VALID 
S$V~LOCKES, CEBSC_CEBFL(R65,50$'; CLEAR THE Loe K BIT 


ADD NEW SLAVE CEB TO LOCAL MEMORY DATA STRUCTURES. 


O$: SCHSGW_CEBCNT : INCREMENT COUNT OF COMMON EVENT BLOCKS 
INSQUE (R2), SCH$GQ_CEBHD INSERT CEB IN LIST 


-DSABL LSB 


eee a 


00000000 ‘EF B6 
QOO00000"EF 62 


3 
; 
5 
0 438: MOVL 
5 
oi 
5 § 
? 
§ 


2 OOO 0000009 09 09 09 09 09 09 09 SINISE OO 


NNO LR IRS IO SRSA SRI LO SOLOS 
oo 
nO 


SSSSELESS SS sess 


ee ee ee em ee ee ed ed ed ed od od wd dd 
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94 ASSOCIATE: : R6 MAY NOT BE MASTER CEB FOR R2 HERE 
sath INC CEBSU_REFC(R2) : REFERENCE CLUSTER 
Avs PUSHL PCBS EFC PCR?) CRBI + GET POINTER TO CURRENT CLUSTER 
SR ara MOVL R2,PCBSL_EFC2P(R7)(R8)] : SET CLUSTER POINTER IN PCB 
98 DISASOC: 
.ENABL LSB 
490 OVL  (SP)+,RO ; GET OLD CLUSTER ADDRESS 
401 BEQL  EXITN N 
4 : CMPB «=: SD YNSC_SLAVCEB, CEBSB_ TYPE CR ) : IS THIS A SLAVE CEB? 
4 BNEQ 5$ ; BR 1f NORMAL LOCAL MEMORY CEB 
404 MOVL  § CEBSL_SHB(RO),R4 + GET ADR OF SHARED MEMORY CONTROL BLOCK 
405 MOVL  § SHBSL-DATAPAGE(R4).RS : GET ADR OF SHARED MEMORY DATA PAGE 
4 6 MOVL cEBSL MASTER(RO) ,R6 : GET ADR OF MASTER CEB 
4 PUSHL R : SAVE ADR OF SLAVE CEB 
AD 4 ; BSBW DEC. SHMCEB_REF : DECREMENT ASSOC REFCNT IN MASTER CEB 
50 BE BO 4 POPL : IGNORE POTENTIAL INTERLOCK ERROR 
26 A B 410 5$: DEC cEBsu _REFC(RO) ; DECREMENT REFERENCE COUNT 
4 B64] BGTR STILL BUSY, CANT RELEASE YET 
OA AO aD B aig CMPB ADIN, SLAVCEB, CEBSB_ TYPE (RO) 1S THIS A SLAVE CEB? 
4 BC 41 BEQL Ss BR If YES, DONT RETURN QUOTA 
37 a0 1 BE 414 BBS #CEBSV_PERM ceBsB TS(ROS EXITN ; PERMANENT CLUSTER 
A 0B A C3415 BS aceBSV V7NOQU UGTA ce | ASTS(R ),10$ ; CHECK FOR QUOTA 
A ¢ 416 MOVZWL CEBSL_PID(RO).R : GEf PIX'OF CREATOR 
"EF cc (41 JSB RETO QUOTA + RETURN QUOTA 
"EF D 48 10$ DECW SCHS$GW_CEBCNT ; DECREASE COUNT OF COMMON EVENT BLOCKS 
0 D8 «41 REMQUE (RO),RT REROVE FROM LIST 
OA AO p DB C4 : CMPB sD YNEC_ SLAVCEB, CEBSB_ TYPE CR ) : IS THIS A SLAVE CEB? 
DF 4 BNEQ 208 ; BR If NORMAL LOCAL MEMORY CEB 
0900000 "EF BCG ‘ JSB XESDEANONPAGED + RELEASE SLAVE CEB 
15 Aé E74 MOVZBL SHB$B_PORT(R4) RI : PORT # FOR THIS PROCESSOR 


On 'S-sep-19be Odiabsar Pevsveacteysastercemar;1 2% 19, vou 


; ad iy Ay ; AVE sce 7" a poocessoe 3°98. 


; phknce LAVCEB R ose 


Sek eh eh eh ee ee ee ek eh ee ak eed 
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ANCH n Toe COMMON 


DR 
ie 
; RESTORE COMPLETION CODE 
i TURN TO CALLER 


13 
SYSASCEFC = ASSOCIATE, DISASSOCIATE AND D ure OM 16-SEP-1984 01:39: AX/VMS Macro v04-00 Pa 
5o.e808 Ext soLeere - beiete EO AMDN EVENT listen -§ set 94:23:97 HOYS. SRC YSASCEFC.MAR; 1 - 
15 66 ~SBTTL EXESOLCEFC = DELETE COMMON EVENT CLUSTER 
00000006 i NAME =4 ; NAME DISPLACEMENT IN ARGLIST 
156 44 
1 444 344 
16 445: FUNCTIONAL DESCRIPTION: 
1 446 ; EXESOLCEFC IMPLEMENTS THE DELETE COMMON EVENT CLUSTER SYSTEM 
156 447: SERVICE WHICH PERMITS A PERMANENT COMMON EVENT CLUSTER TO BE 
4 ; MARKED FOR DELETION WHEN ITS REFERENCE COUNT BECOMES ZERO. 
15 450 ; CALLING SEQUENCE: 
‘ ; CALLG  ARGLIST,EXESDLCEFC 
15 453 : INPUT PARAMETERS: 
4 4 : NAME(AP) = ADDRESS OF STRING DESCRIPTOR FOR NAME OF CLUSTER 
21 4 § : OUTPUT PARAMETERS: 
‘ ; RO = COMPLETION STATUS 
1 138 : COMPLETION CODES: 
15 460: SS$_NORMAL = SUCCESSFUL COMPLETION OF SERVICE 
46] ; SS$S"NOPRIV = INSUFFICIENT PRIVILEGE TO DELETE CLUSTER 
1 £88 : SIDE EFFECTS: 
15 464: IF THE REFERENCE COUNT FOR THE SPECIFIED CLUSTER IS ZERO, 
ie : THE CLEARING OF THE PERMANENT BIT WILL CAUSE IT TO BE DELETED. 
15 467 :-- 
15 46 
1 ig EXESDLCEFC:: : DELETE COMMON EVENT CLUSTER 
OFF 16 4 2 «WORD “M<R2,R3,R4,R5,R6,R7,RB,R9,R10,R11> ; REGISTER SAVE MASK 
59 O04 AC D a aw MOVL NAME (AP) _R9 ; GET POINTER TO CLUSTER NAME 
SE c 1B 47g SUBL  #32,SP ; CREATE SPACE FOR NAME STRINGS 
1€ 47 BSBB Ss LOCLUST : LOCATE CLUSTER BY NAME 
: D 47% TSTL «OR + WAS NAME FOUND 
1 475 BEQL 408 : NO, GO CHECK IF THERE'S A MASTER CEB 
20 a2 0OBC (7—soé 4 47 CMPL  PCBSL_UIC(R7),CEBSL_UIC(R2) ; OWNER OF CLUSTER? 
A 1 A 47 BEQL Ss : yes PERMIT ANYWAY 
05 6c 87 A f c 478 BBS #PRVSV_PRMCEB, @PCBSL_PHD(R7),10$ ; CONTINUE IF PRIVILEGED 
0 24 A 479 S$: MOVZBL #SS$_NOPRIV,RO ; SET ERROR CODE 
7 11 ' ee 0 BRB : xIT RELEASING MUTEX 
05 08 ag 1 ES 6 481 108:  BBCC #CEBSV_PERM,CEBSB_STS(R25,20$ ; CLEAR PERMANENT FLAG 
A E 4 : BBSS  #CEBSV“NOQUOTA, CEBSB_STS(Re),208 ; SE NO QUOTA 
DD 0240 483 20$:  PUSHL R ; SAVE CLUSTER ADDRESS 
26 a2 oB 42 484 INCW  CEBSW_REFC(R2) : TEMPORARILY REFERENCE IT 
D 45 485 TSTL OR : IS THERE A MASTER CEB, ALSO? 
ea °. Same | : BEQL 308 : BR IF NO MASTER CEB TO DELETE 
3 6C 87 E °! ee BBC #PRVSV_SHMEM, @PCBSL_PHD(R7) 5 ; BR IF NOT PRIV TO DELETE 
0 7 O26 4 3 BBCC] #CEBSV~PERM Cease TS(R6) 258 ; ¢ STATUS TO TEMP FOR DELET 
FAG 15 Ab 4 358: MOVE $ SHBS$B_PORT(A4),CEBSB_DELETPORT(R6) ; INDICATE PORT # OF DELETOR 
4 9 0S: BRW DISASOC ; DISASSOCIAT 
B 49 ; RELEASING CEB IF IDLE 
6 05 8 49¢ 40$:  -TSTL : IS THERE A MASTER CEB TO DELETE? 
D 49 BEQL EXITN : BR IF NONE, EX vi H NORMAL STATUS 
20 A6 = 008 : F 494 CMPL OP. BSL_UIC(R7) ,CEBSL_UIC (RO) ; OWNER OF CLUSTER? 
5 65 495 BEQL : eS PERMIT DELETION 
cs 6c 87 «(OA C*éE 496 BBC #PRVSV_PRMCEB,@PCBSL_PHD(R7),5$ ; BR IF NOT PRIVILEGED 


voe-000.° EXtSOLEERC = DELETE CONF ayo LEE com Mee 18be Bbidaser ESN H Reels, «| Pam 1, oe 
¢ 87 : #PRVSV. SHREM PHD(R BR T Paty TO DEL 
§8 85 Ke M aft i ‘ Bis fia vee so cela ie pe $10 to Tene e nastin 


COMPLETION CODE REPORT 


13 
SYSASCEFC ASSOCIATE DISASSOCIATE AND DELETE COM 16-SEP-1 239: AX/VMS Macro V re 
vOe-800 CEBLOCK = LOCK COMMON EVEN BLOCK MUTEX F $731 3he Bt Be Sys. saci YSASCEF 
«SBTTL CEBLOCK = LOCK COMMON EVEN BLOCK MUTEX FOR WRITE 


: FUNCTIONAL DESCR PTION 
: cEBL LOCK L E COMMON EVENT BLOCK MUTEX FOR WRITE AND 
RETURNS ;° Pte IPL$_ASTDEL. 


| CALLING $7538 CeBLock 


INPUT PARAMETERS: 
R4 = PCB ADDRESS 


SCENES 


CEBLOCK: z LOCK CEB MUTEX FOR WRITE 
00000000 EF 4 MOVAL EXESGL_CEBMTX,RO ; SET ADDRESS OF MUTEX 
‘EF JMP SCHSLOCKW ; LOCK IT FOR WRIT 


Rororonony ee 
FUR" OOO uns 
“eee 
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13 
vor860 ° “oASSRF¥4"E gc RHEMISQEIATE Me PEATE COM TgsEPntoRs 84:28:05 vn nacre yO4rOD,., Page It, 
-SBTTL LOCLUST = LOCATE CLUSTER GIVEN NAME 
WARE 26 3 NAME DISPLACEMENT IN ARGLIST 
FUNCTIONAL pesceiey 
LOCLUS PeTES hi os LIST of COMMON event le FOR THE 
NAMED LY TER AND RETURNS THE ADDRESS OF TH ghUSTER. 
ie*edinete NB LUEY oven Hanne HER PES 
ED AND “rsbebto EXIT THE SERVICE. 


T 
MUTEX RET I 


CALLING Sit tne 
BSB/JSB LOCLUST 
INPUT potent ent 
($P) = 


68 
4(SP) = ig 8 
R4 = PCB ADORE 

RO = ADDRESS OF NAME STRING DESCRIPTOR 


; OUTPUT PARAMETERS: 


; $ UNLOCK 
; RO = COMPLETION STATUS 


= MOVED 


AREA INTO WHICH SHARED MEMORY NAME BE MOVED 


vr AREA INTO WHICH CCF CLUSTER NAME WILL 
Mt WIL 


ALL CASES: 
; Ri,R3_= DESTROYED 
; R7 = PCB ADDRESS OF CURRENT PROCESS 
; IF LOCAL MEMORY COMMON EVENT CLUSTER NAME: 
; Re = spore et OF LOCAL MEMORY CEB (0 IF NAME NOT FOUND) 
R4 = RS DESTROYED 


; R6 - 0 

; IF SHARED MEMORY COMMON EVENT 
R2 = ADDRESS OF SLAVE C 

R4 = SHARED MEMORY CONT . 

R6 = ADDRESS OF SHARED MEMO 


COMPLETION CODES: 


C NAME : 
B (0 IF NO SLAVE FOUND) 
DDRESS 
ATA PAGE ADDRES 
RY MASTER CEB (0 IF NAME NOT FOUND) 


MEN HO OOD NA NES WN SO ODNOA NEW O ONO 


| eet PN RPO A BS Oe ON PUPP BS EE 


SS$_ACCVIO - LOGICAL NAME INACCESSIBLE 
SS$-IVLOGNAM = COUNT FOR LOGICAL NAME NOT 1-15 
SS$~NOPR = PRIVILEGE VIOLATION 
SS$"SHMNOTCNCT = SHARED MEMORY NOT CONNECTED 
SS$"TOOMANYLNAM = TOO MANY LOGICAL NAME TRANSLATIONS 
LOCLUST: ; LOCATE CLUSTER 
-ENABL LSB 
9600 BF 88 4 PUSHR #*M<R9,R10,R11> ; SAVE REGISTERS 
4 D MOVL R&R ; SAVE PCB ADDRESS 
6 IFNORD #8. (R9),308 : TEST DESCRIPTOR READABILITY 
8 : CREATE STRING DESCRIPTORS FOR COMMON EVENT CLUSTER AND SHARED MEMORY NARE 
: BUFFERS. THEN PERFORM LOGICAL TRANSLATION OF USER-PROVIDED NAME TO 
© ; DETERMINE ACTUAL CLUSTER NAME AND SHARED MEMORY NAME. 
51 69 9A I MOVZBL (R9),R1 ; GET COUNT FROM DESCRIPTOR (LE 255) 


— 


3 
SYSASCEFC = ASSOCIATE, DISASSOCIATE A pevere COM 16-SEP-1984 01:39: AX/VMS Macro V04-00 Pp 15 SYS 
Fone855 LOCLUST = Feckte eeOSteR GIVEN NAME §73Fr= 1383 94:23:97 PETS SRCISYSASLERC WAR: om ip v04 
7A = «13 BEQ i It STRING LENGTH 
TF Nop a osce ),30$ : HECK ADABILITY F STRING 
1 AE OF A SHAB <<he4>41>(5P) ; up TRING DESCRIPTOR FOR 
58 g 4 A $ novi $ RI : § ' AD iF CEF TR DSC 
29 if BF AA PUSHAB << 4} een : SET up sPRing DESCRIPTOR FOR 
oF D AD PUSHL # ; SHARED MEMORY NAME 
SA sOSE p AF MOVL $P_R10 : SET ADR OF sun NAME STR DSC 
p46" 8 BSBU MMGSCEFTRNLOG : DETERMINE CEF AND SHM NAMES 
62 5 8 BLBC =O «RO 8 : BR IF ERROR IN LOGICAL NAME TRANS 
18 AB $8 8 MOVE R11), <4*6>(R11) + MAKE ASCIC : F 
8 BEQL 0$ : BR IF NO ce NAME SPECIFIED 
04 AB 8 DECL (R11) ; CONVERT TO POINT TO ASCIC NAME 
30 AA A C 36 MOVE (R10),<4#12>(R10) ; : ASCIC SHM NAME 
; 1 C BNEQ FIND SHM_C ; F CEF CLUSTER IS IN SHARED MEMORY 
B31 c? 38 BS8B 4s CEBLOCK : LOCK CEB LIST TO PROHIBIT WRITERS 
¢ 9 ; FIND COMMON EVENT BLOCK IN LOCAL MEMORY. 
5A O0000000'EF oD C : MOVAL SCHS$GQ_CEBHD,R10 ; GET ADDRESS OF CEB LIST 
6 SA OD D MOVL 10,R6 + AND POINTER TO HEAD OF LIST 
6 D D 4 10S: MOVL (R65,R6 ; FLINK ONWARD 
A : Dé 5 CMPL = R10, R6 + CHECK FOR END OF List 
40 D 8 BEQL «=s«415$ ; BR IF AT END OF LIST, ENTRY NOT FOUND 
OOBE (7 224A 3 D 40$: CMP ¢ BSW_GRP(R6) ,PCBSW_GRP(R7) ; SAME GROUP? 
F z : BNEQ $ : NO. TRY ANOTHER 
28 a6 «C04 BBC : E CMPC3 #16,84(R11),CEBST_EFCNAM(R6) ; COMPARE THE NAMES 
: E 610 BNEQ 108 : NOT , TRY ANOTHER 
OA A6 9 &B 61 CMPB #DYNSC_SLAVCEB, CEBSB_TYPE (RO) ; SLAVE CEB? 
2% EF 1 BEQL. 108 : BR IF SLAVE, DON'T USE CEB 
00Bc C7 20 a6 OD Fl 61 CMPL SEBSL_UIC(R6) ,PCBSL_UIC(R7) ; OWNER UIC? 
-m. F? 614 BEQL $ ; ves CONTINU 
20 26 A6 CE r9 13 BLBC CEBSW_PROT(R6),20$ : CONTINUE IF NO ERROR 
ED Hi + NO ACESSS ALLOWED TO COMMON EVENT BLOCK. 
4 57 00 OoF 8 45$:  MOVL  R7,R4 : RESET ADR OF PCB 
50 "EF DE p MOVAL EXES$GL_CEBMTX,RO ; SET ADDRESS OF MUTEX 
"EF JSB SCHSUNCOCK 3; UNLOCK MUTEX 
4 OA ‘ MOVZBL #SS$_NOPRIV.RO : SET ERROR CODE 
RET : AND RETURN FROM SERVICE 
50 oc %3¢ 031 4 308:  MOVZWL #SS$_ACCVIO,RO ; INDICATE ACCESS VIOLATION 
50 0156 BF $C. «O81S «458 508: ROVZUL #SSS._ IVLOGNAN.RO t INDICATE IELEGAL. STRING 
1A 3 208; RET ’ ; bet PROM STL SERVICE 
18 $ RETURN ADDRESS OF LOCAL COMMON EVENT BLOCK (IF FOUND) ELSE 0. 
6 p4 0318 158: CLRL oR ; INDICATE NONE FOUND 
52 D0 1 20$:  MOVL R6,R2 + RETURN ADR OF CEB 
6 D CLRL ORR + RETURN NO MASTER SHMGSD 
s te tt 25$: ADDL #<4e4>,SP ; CLEAN STR DSC'S OFF STACK 
£00 8F BA POPR #*M<R9‘R10,R11> : RESTORE REGISTERS 
5 i 6 RSB + AND RETURN 
A 3 
A § + FIND COMMON EVENT BLOCK IN SHARED MEMORY. 
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13 
SYSASCEFC = ASSOCIATE, DISASSOCIATE AND DE byt COM 16-SEP- 39: AX/VM 
VOe-000 ALOSHRCED ° ALLOCATE rH ED MERORY MASTE $7365 = 1982 eta UeYs\sacdeysase PC OMAR; 1 a t) 
-SBTTL ALOSHMCEB = ALLOCATE SHARED MEMORY MASTER COMMON EVENT BLOCK 
ve 
FUNCTIONAL DESCRIPTION: 
iN) ROUTINE MOAT: AND INITIALIZES A SHARED MEMORY MASTER COMMON 
EVENT BLOCK. SOME FIELDS HAVE ALREADY BEEN INITIALIZED BY SYSGEN. 


CALLING SEQUENCE: 
BSBW ALOSHMCEB 


INPUT PARAMETERS: 
Re = ADDRESS OF SHARED MEMORY CONTROL BLOCK 
RS = ADDRESS OF SHARED MEMORY COMMON DATA PAGE 


IMPLICIT INPUTS: 
COMMON DATA PAGE MUST BE INITIALIZED. 


OUTPUT PARAMETERS: 
RO - COMPLETION STATUS CODE 
R6 - vag iy eae MEMORY MASTER CEB, IF SUCCESSFUL 


IMPLICIT OUTPUTS: 
THE MASTER CEB IS INITIALIZED. ITS REF COUNT IS UP BY ONE TO LOCK IT. 


coms CODES: 
SSS_EXPORTQUOTA = NO PORT QUOTA 

SSS_NORMAL = SUCCESSFUL COMPLETION 

SSS_NOSHMBLOCK = NO SHARED MEMORY MASTER CEB AVAILABLE 


SIDE EFFECTS: 
THE MASTER CEB IS LOCKED PREVENTING OTHER PROCESSES FROM USING IT. 
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.ENABL LSB 
ALOSHMCEB: 
PUSHR #*M<R1,R2> ; SAVE REGISTERS 
SHBSE BORT (R4) RI ; GET PORT # TO BE USED AS AN INDEX 
ADAW! #-1,SAD$W_CEFQUOTA(RS)CRI] ; SUBTRACT PORT QUOTA FOR CEF 
BLSS _NO_QUOTA : BR IF NO QUOTA AVAILABLE 
ADDL3 SHOSL_CEFPTR(RS),RS.R6 ; GET ADR OF FIRST CEB IN SHM TABLE 
MOV2WL CEBSW~SIZE(R6) RO > GET SIZE OF ONE SHACEB 
MOVZ2WL SHOSW-CEFMAX(R5) ,R1 : GET # OF ENTRIES IN TABLE 
BRB : JOIN COMMON COD 
10$:  BSBW DEC_SHMCEB_REF > UNLOCK THE PREY OUS ENTRY FOR DELETION 
: IGNORE POTENTIAL INTERLOCK ERROR 
15$:  ADDL2 R2,R : GET ADDRESS OF NEXT CEB IN TABLE 
SOBGTR R1.208 : BR LF ANOTHER ENTRY TO CHECK 
BEQL NO FREE CEB : BR IF NO ENTRY AVAILABLE 
208 BSBU —sINC_ SHMCEB_REF : LOCK THE NTRY 
BiBC 3=._«aR OO, T5$ ; DONT ENTRY IF i 1S REFCNT LOCKED 
BBS #CEBSV_LOCKED, CEBSL ceBFL CR ) ; BR IF ENTRY BEING MODIFIED 
BBS acEBSV “VA 10, CEB j TEBFL(R6),10$ ; BR IF ENTRY ALREADY IN USE 
BBSS1  #CEBSV~LOCKES, CEBSC_CEBFL(R65,10$°; BR IF SOMEONE JUST TOOK IT 
> FOUND AN UNUSED ENTRY. NOW INITIALIZE IT. 


3 
Ssesei" AEGAN" ESCHER DERG RATE RESUMES URESE HTECSGRSEMh OH 
D 
an al on He } p i me $8, aur pe Esse Lock K(R Siri NOICAT "oer LOCKING uray 
ih A D 4 CLRL a ff ie! Aze' ey gives 
wt th BO Ba REE ei TT ones 
24 Ab oor 4 mOVIWL PROT ip ceasu Prot bh 5 irl 1H Pk QT raat CLUSTER 
if 4g PUSHR #*M<R2,R$ sav AVE ne 
28 AB «OIC: AE f 8 5 4 mOVCS #16, :f (ses cess 4 AEF CNAM(RE SE not aftusTer 
- Fe ¢ Aes cease RS AG A> Q <cEBss RESTORE REG ; - 
1E A615 AG 98 rt nov By eS cLETPOR 4), CEBSB_ ne PORT (R6) MIT CREATOR/DELETOR PORTS 
50 01 9A MOV $$$ _RORMAL,RO- : REPORT SubchSe 
BA 30$:  POPR  #*M<R1.R2> : RESTORE REGISTERS 
5 4 RSB RETURN TO CREATE SLAVE CEB 
50 0384 er 36 4 : — “hoviuL #S$8_NOSHMBLOCK RO REPORT FAILURE 
5 C BRB 4 JOIN COMMON CODE 
f 3 NO_QUOTA: NO CEF PORT QUOTA 
50 O3A¢ er | ot 6 MOVZWL #SS$ EXPORTQUOTA, RO REPORT FAILURE 
51 15 Ab oA ; 40$:  MovzeL subsea PORT ( GET PORT # TO BE USED AS AN INDEX 
7C AS41 gi 8 0417 7 ¢ ADAWI SHS MLeFousTACRS) CRIS RETURN QUOTA ACQUIRED 
6 04 O41¢ 7 CLRL 4e INDICATE NO MASTER CEB, TO USE COMMON 
1E 764 + ERROR PATHS IN CALLER CODE 
e 11 i i BRB 30$ RETURN TO CLEAN UP 
76 .DSABL LSB 
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-SBTTL INC_SHMCEB_REF/DEC_SHMCEB_REF - ALTER REFCNT ON SHMEM MASTER CEB 


< eM THERE RUT NEST ESSAY 8c Has te EVENT BLOCK BY A paoses tet REFERENCE 
$US eb as AN INDER IN, IN DE 18H PRO PROCESSOR ner ret “cout 10 
T Locket TINT E 


UNILE A PROCESSOR I To tot. “ pine sf 


* abe oe UHL HECKING THAT 
AN ENTRY’ aM RENCE C THIS PREVENTS A RACE 
CONDITION con A tT A tion a ta oe of —" EV Hf FLAGS. 
NOT THAT xGe ION MU fae DY NGLE STR D ON CESSOR 

EXECUTING CODE VIA MUTE 
THESE ROUTINES ASSUME THAT THE PROCESSOR REFERENCE COUNTS ~ 
Has + Sal LY PRECEEDED BY THE SLAVE CEB VIRTUAL ADDRESSES IN THE 
MASTER CEB. 

CALLING SEQUENCE: 
BSBw INC_SHMCEB_REF /DEC_SHMCEBREF 

INPUT PARAMETERS: 
R4 = ADDRESS OF SHARED ee CONTROL BLOCK 
R5 = ADDRESS OF SHARED MEMORY COMMON DATA PAGE cysee BY EXESSHMCEBDEL) 
R6 = ADDRESS OF SHARED MEMORY MASTER COMMON EVENT BLOCK 


; cRPL ECE ye: 
; THE SHARED MEMORY MUST BE CONNECTED AND THE REFERENCE COUNTS IN THE 
MASTER CEB SET UP AT SYSGEN TIME. 


; OUTPUT PARAMETERS: 
; RO = STATUS CODE 


; IMPLICIT OUTPUTS: 
; THE MASTER CEB'S REF COUNT IS UP/DOWN BY ONE TO LOCK/RELEASE IT. 


; secrete ad | CODES: 
; NORMAL = SUCCESSFUL et te 
SSSTINTERLOCK = UNABLE TO OBTAIN ENTRY REF COUNT LOCK 


; SIDE EFFECTS: 
; THE MASTER CEB CANNOT DISAPPEAR UNTIL THE REFERENCE COUNT IS RELEASED. 


R1,-(SP) ; SAVE REGISTERS 
MOVZBL SHOS$B_PORT(R4),R1 ; GET PORT # FOR INDEX TO PROC REFCNT 
MOVZBL CEBSB"PROCCNT(R6).R2 ; GET # OF PROCESSOR SLAVE VA'S IN CEB 
ASHL »Re- ; CONVERT TO BY E CNT, SLAVEVA=LONGWORD 
ADDL2 + OFFSET PAST TH SLAVE VA'S 
BSBW Exe BREFLCK : ACQUIRE REF COUNT LOCK IN SHMCEB 
BLBC : BR IF UNABL E TO ACQUIRE LOCK 
ADAW BSL_VASLAVE1(R2)CR1) ; IN REREN PROCESSOR EF COUNT 
BBCC beteite V REFCN LCK, CEBSL_ ceeht R6), 108 ; REL ASE REF CNT LOCK 
10$: mova ; RESTORE REGISTER 
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EXESSHMCEBDEL ; TRY TO RELEASE CEB 


ERR_BUGCHK: 
BUG_ CHECK CEBREFNEG,FATAL ; FATAL ERROR 


yet INC SHACEB REF /DEC SHACED AE NS “Me erSEE= 13h Bbiaese: FeNSM eR HESER MORO, = Page 20, 
0S 4 RSB 
4 DEC_SHMCEB_REF: 
re il eR ¢ a | BnbSe PORT(RG) R1 : aeye cat» FOR IND —X TO PRO 
2} 1D A 3A movepe : BSB-PROCCNT(R6),R2 ~~: eft & OF PROCESSOR’ § SLAVE VA's “tle 
eee Be ie Pe OK iene 
FB c* i 4 BSBW exes EBREFLCK : ACQUIRE REF COUNT cSuik IN SHMCEB 
0D A BLBC F UNABLE 0 RE OCK 
38 A241 FFFF BF D : ADAWI yh 1 CEBSL VASLAVET (RZ)CRII) 5 NCRE N eres OR REE QUN NT at 
00 : Bbeet eceeey RE REF CNTLCK, CEBSL_ cboPt Pees 10 i in’ mere Rent LOCK 
| 10$ mova +,R1 RESTOR ORE R + 
01 0B A6 BBC #CEBSV_PERM, CEBSB_ sTS(R6S, BR if SLOSTER CAN BE DELETED 
; 
7 4 
7 5 
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«SBTTL EXESSHMCEBDEL = TRY TO DELETE (RELEASE) MASTER CEB IN SH MEM 


+ 
FUNCTIONAL DESCRIPTION: 


THIS ROUTINE PERFORMS TWO FUNCTIONS: (1) IF T pec ere PENDING FLAG IS 
Se leus ae N ie iar oRee THE ony Suahees pnoessogs Wy ON TH cae ED MEMORY THAT THE 


B I$ NOW D (2) IT C 
SHARED MEMORY ; B CAN BE RELEASED TAME ATELY. 


TH se "cout Ay Y BE REL aseo | IF AL att HE "Senne tn COUNTS 
AR frek PROCESSOR). IF A COUNT IS NOT ZERO, THEN ONE OF THE 
FOLL vIn rf ours ANDING: 
LAVE tee STILL EXISTS FOR THE MASTER cee 

An INTER PROCESSOR REQUEST MESSAGE EXISTS a" HE MASTER CEB 

) A PROCESSOR IS REFERENCING THE MASTER DURING A SHM CEB TBL SEARCH 
CALLING SEQUENCE: 

JSB EXESSHMCEBDEL 


INPUT PARAMETERS: 


R5 = SHARED yh Y COMMON DATA PAGE ADDRESS 
R6 = MASTER CEB ADDRESS 


IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
RO = STATUS CODE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
VARIOUS SYSTEM STATUS CODES. 
SIDE EFFECTS: 


ive MASTER CEB MAY BE DELETED. THE OTHER PROCESSORS MAY BE INFORMED 
F A CHANGE IN STATUS OF THE CEB. 


AE XENONPAGED ,BYTE 


MOV R1,-(SP) : SAVE REGISTER 
40$:  MOVZBL CEB$B_PROCCNT(R6) ,R1 : GET # OF REFERENCE COUNTS TO CHECK 
MOVAL cee L eWASLAVEI (R6SCR1],R2 ; GET ADR OF 1ST REF COUNT 

BSBW ESCEBREFLCK ; ACQUIRE REF COUNT LOCK 

BLBC 3 1 GNORE POTENTIAL INTERLOCK ERROR 
50S: TST ih : ANY R FERENCES? 

BNEQ : BR IF THERE 1S AN OUTSTANDING REF 
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RELE -5EP- SYS. SRCISYSASCEFC.MAR; 1 
R1,50$ Ach REF CNT 
acéasy LOCKE D Sea T yAGAInst SEARCHES 
aCEBSv “VALI, é js mane KI LONGER VALID 
C REA POR (ney aC PORT wauoTA 
s Ho AIPORT REY ie 
acEBSy | at ¢ mine RELEASE "Esp FOR OTHER USE 
VIREF CNTLCK, CEBSL_ kare che ), ois RELEASE REF CNT LOCK 
(SP)+,R1 ; RESTORE REGISTERS AND STATUS CODE 
+ RETURN TO CALLER 
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-SBTTL UNIQUE CEB = CHECK THAT SH MEM CEB IS UNIQUE 


+ 
FUNCTIONAL DESCRIPTION: 


; THIS ROUTINE I tS taidh AFTER A_ SHARED oer MASTER 

; A tae of a 4} ce D MEMORY'S CEB T 

; Ser ty ft ae se? 5" OF HE SAME NAME WAS CR D DURING THE THAT 
ScErc’ vas. CREATING THE SECTION. 
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TWO bores 8 rg? Ff on tt at ve THE ast is MEMORY CEB MAY s 
TO VERIFY A SEC Process rt ° HE FIRST IS THE SHARED eg CEB MUTEX 
SSES OCESSOR. THE SECOND HE SHARED 
TABLE LOCK CONTAINED IN One's SHARED MEMOR A 

; INTERLOCKS BETWEEN PROCESSORS. 


See oe 
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10 THE REGISTER CONVENTION (R6=ADR OF MASTER CEB JUST CREATED AND R11=ADR OF 
MASTER CEB THAT IS THE DUPLICATE) IS SWITCHED DURING THIS ROUTINE TO MAKE 
; THE ROUTINES INC_SHMCEB_REF AND DEC_SHMCEB_REF LOCK THE DUPLICATE ENTRY. 


: CALLING SEQUENCE: 
BSBy —-UNIQUE_CEB 
INPUT PARAMETERS: 
R4 = ADDRESS OF SHARED MEMORY CONTROL BLOCK 
Re = ADDRESS OF COMMON EVENT BLOCK 10 BE VERIFIED AS UNIQUE 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 


R11 - 0 IF THE CEB IS UNIQUE 
OTHERWISE, ADDRESS OF DUPLICATE CEB 


IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: 

NONE 
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i UNJ QUE _ CEB: 


LSB 
O34F 8F 8B PUSHR #*M<RO,R1,R2,R3,R6,R8,R9> ; SAVE REGISTERS 
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7 ~SBTTL EXESCEBREFLCK = ACQUIRE SHMCEB REFERENCE COUNT LOCK 


++ 
FUNCTIONAL DESCRIPTION: 
ROUTINE IS CALLED 10, eceyine ar chilis SE OF A SHARED MEMORY COMMON 
iy 36 YP 


E 
AG BLOCK 1 0 BIT 
RASTER R ces. | f THE at? 8 lock Ot burp NO BE ACQUIRED 


CALLING SEQUENCE: 

BSBw EXESCEBREFLCK 
INPUT PARAMETERS: 

R6 = ADDRESS OF SHARED MEMORY COMMON EVENT BLOCK 
; IMPLICIT INPUTS: 
NONE 
; OUTPUT PARAMETERS: 

RO = STATUS CODE 
IMPLICIT OUTPUTS: 

NONE 
COMPLE. ION CODES: 


SS$_NORMAL - SUCCESSFULLY ACQUIRED LOCK 
SS$TINTERLOCK = UNABLE TO ACQUIRE LOCK 


SIDE EFFECTS: 
NONE 


: 
: 
: 
: 


»PSECT Sadan 
enesceenery ett 
PUSHL 


i SAVE REGISTER 
MOVL Gene sot LOCKRTRY,R1 i302 i FOR BIT LOCK 
10$:  BBSSI rst V VAREFCNTLCK. ,CEBSL_ ceo ) +20 Tay TO ACQUIRE BIT 
K SUCCESSFULLY Y ACQUIR 
P STER 
20$: SOBGTR R1,108 
PO : R1 
mov WL #SS$_INTERLOCK,RO 


a a a kd a a a dd a ed ed a a as ot 
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mx 
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SB 


; One 
; REPORT ERROR STATUS 
; RETURN TO CALLER 
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~SBTTL SHMCEFTBLK = ACQUIRE EXCLUSIVE USE OF SHARED MEMORY TABLE 
b4 3 +4 
65 ; FUNCTIONAL DESCRIPTION: 
1067 ; THE ROUTINE IS CALLED TO ACQUIRE EXCLUSIVE use OF A SHARED MEMORY C 
1068 : EVENT FLAG TABL HIS 1S DONE BY LOOPING TO ACQUIRE A SHARED MEMORY BIT 
69 ; LOCK. IF THE 6 f LOCK COULD NOT BE ACQUIRED, THEN AN ERROR CODE IS RETURNED. 
f ; CALLING SEQUENCE: 
, ; BSBW 0s SHMICEF ‘BLK 
, : INPUT PARAMETERS: 
7 : RS = ADDRESS OF SHARED MEMORY COMMON DATA PAGE 
8 ; IMPLICIT INPUTS: 
5 a : NONE 
; : OUTPUT PARAMETERS: 
3 5 ; RO = STATUS CODE 
5 : t IMPLICIT OUTPUTS: 
§ ; NONE 
31 : COMPLETION CODES: 
1 38 : SS$_NORMAL = SUCCESSFULLY ACQUIRED LOCK 
5 34 : SS$"INTERLOCK = UNABLE TO ACQUIRE LOCK 
2 1 3 : SIDE EFFECTS: 
56 1097; 
56 1 38 ; NONE 
56 1099 ; 
8 lion 
00000409 11 ; .PSECT YSEXEPAGED,BYTE 
D9 1103 SHMCEFTBLK: 
er 50 4 ii ¢ MOV BEX $GL_LOCKRTRY,R1 seve OOP COUNT FOR BIT LOCK 
07 00m ea 6 3 ii 10$: BBSSI #SHD$V_CEFLCK SHDSE. FLAGS (RS) Ait ; TRY TO ACQUIRE BIT LOCK 
0 01 GA 0668 11 MOVZBL 4#SS$_NORMAL,RO ; REPORT LOCK SUCCESSFULLY ACQUIR 
1 BED —B 11 POPL RI > RESTORE REGISTER 
EE 11 RSB t RETURN SUCCESS CODE 
FO 51—s#F EF 1110 20$:  SOBGTR R1,10$ > TRY AGAIN TO ACQUIRE BIT LOCK 
H 8EDO Fe 111 POPL 1 > RESTORE REGISTER 
50 038C BF ¢ F 111¢ MOVZWL #SS$_INTERLOCK,RO t REPORT ERROR STATUS 
FA 111 RSB t RETURN TO CALLER 
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-SBTTL SHD_FIND_SHB = FIND SH MEM CONTROL BLOCK FOR SPECIFIC SHD 
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oe 
; FUNCTIONAL DESCRIPTION: 


; THIS ROUTINE TAKES COMMON DATA PAGE ADDRESS AND FINDS THE SHARED MEMORY 
; CONTROL BLOCK ADDRESS FOR THIS SHARED MEMORY. 


: CALLING SEQUENCE: 
BSBw SHO _F IND_ SHB 
INPUT PARAMETERS: 
RS = ADDRESS OF SHARED MEMORY COMMON DATA PAGE 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 


RO = STATUS CODE 
R4 = SHB ADR, OR 0 


IMPLICIT OUTPUTS: 
NONE 
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4 COMPLETION CODES: 
4 SS$_NORMAL = SUCCESSFULLY FOUND SHB ADR 
4 SS$"SHMNOTCNCT - SHARED MEMORY NOT CONNECTED 
49 : SIDE EFFECTS: 
NONE 
.PSECT YSEXEPAGED,BYTE 
SHD_F IND. SHB: 
“ENABL LSB 
MOVZBL sss NORMAL , RO ; ASSUME SUCCESS 
MOVL  EXESGL SHBLIST,R4 + GET ADR OF FIRST SHB 
0 10$: BEAL : BR IF NO SHB ADR 
BBC #SHESV CONNECT, SHBSB_FLAGS(R4),GET_NXT_SHM ; BR IF MEM NOT CONCT 
CMPL § SHBSL_BATAPAGE(R4).R5 ; DOES THE-COMDATA PAGE ADR MATCH? 
BNEG NIT. : BR IF NO MATCH, FIND NEXT SHB ADR 
RSB ; SHB FOUND, RETURN ADR 
5 GET_NXT_SHM: 
MOVL SHBSL_LINK(R4) ,R4 ; GET NEXT SHB IN LIST 
BRB 0 : CONTINUE 
8 NOT_FOUND: 
ROVZUL #SS$_SHMNOTCNCT,RO : NO MORE MEM, REPORT SHB NOT FOUND 
49 .DSABL LSB 


voe-000 inh AOGITs DUPASS°CIMENMMGSPEAETE OPC ECEESSISRS QURESOF WAR Aeace,ymtete Pome 28 vo 


ee 


eu 
“ 
o 

m 
@Oam 
znw 
m 

~~" 
o 


BB 
Pw 


DPIMIMOMOOOMOOMOMOOOOOoe 
MHM MMMM MMmmMmmMmmrncnernicrircry 
AA AEA EEE EEE ELE 
Userereneer reece 


C “PERM 
CEBSV_REF CNTLCK 
CEBSV" VALID 


an 
mmen 
Dow 

Sd 

< 
moo 
r] Ole 

Sz a 
m 
= 


= ASSOCIATE, DISASSOCIATE AND pevere con 19 3Er- 138% 93:23:03 ae cro v04-00 


St 
i 


>_>. 
>> 


5c 


DOOCOC 


Oo 
BANE LUM OMBDA LOE 


oSoc 


eeeneene xX 
00000215 RG 
eereeeee x 
eereeeee x 

x 


geereere 


AANA AE AWA BE WI WW 


NOT 


Ppa bea pDoROL ft | 


BBMOOOOOoes 


NLOCK 
BSB _FLAGS 
RT 


“PO 
BSL ~DATAPAGE 


=z=z=IO 
oo=x 


Prt eecerertrerererert St SEE gE Pg pap peewee 


aA e ese seseapeeagad $F FFF $F FF F 3 


SYS.SRCISYSASCEFC.MAR; 1 


ceveeeee tf 


geeeerer 
gereeree 
geenerese 
geeaeenese 
gereenenr 


$< 


1 
seg + SS = ASSOCIATE, DISASSOCIATE AND pect te COM ym iis ~138¢ 8}: 33: 9 eta Psd aac cover 
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! Psect synopsis ! 


Geeeeroecececoeooeces$ 


PSECT name Allocation PSECT No. Attributes 
- ABS. ( 9. ( ol USR CON ABS Leb NOSHR XE NORD NOWR 
BL °  * ( 1.) USR CON wet LCL NOSHR x RD wR 
$aBS$ ( g.) ( 2.) USR CON ABS LCL NOSHR EXE RD WR 
YSEXEPAGED ( 1310.) ( ) 4 ure CON REL LCL NOSHR x RD wR 
AE XENONPAGED ( ») ( ») CON REL LCL NOSHR x RD wR 
tere we m ee mm mem wes eee cee eee ty 
H Performance indicators H 
Phase Page faults CPU Time Elapsed Time 
Initialization $ :00: 92 
zonnens processing } :00: +32 
Posse table sort . 6 :00: e 
Symbol table output a :00:00. 9 
Psect synopsis output :00: 2 3 
Cross-reference output :00:00. ? 3 
Assembler run totals 75 :00:17.6 2 


rking no eet Limit was 1650 pa 
fo bytes 5 9 pages) of virtua eonery were used to buffer the intermediate sode 
here were 60 ;pages of symbol table grace all cates to hold 1081 non-local ie 4 Local symbols. 
1174 source Lines were read in Pass produc cing object records in Pass 2. 
25 pages of virtual memory were used to define 24 macros. 
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! Macro Library statistics ! 


bmw em corn nce nen man ecce reo ee + 


Macro a name Macros defined 
$52280U :CSYS. 0B! JLIB.MLB;1 14 
“$ syvSLI 3STARLET ALB;2 

TOTALS wee: ieoae es) 21 


1184 GETS were required to define 21 macros. 
There were no errors, warnings or information messages. 
MACRO. _I1S=LIS$:SYSASCEFC/OBJ=O0BJ$:SYSASCEFC MSRC$:SYSASCEFC/UPDATE=(ENHS: SYSASCEFC) +EXECML$/LIB 


L EQUIPMENT CORPORATION 
ENTIAL. AND PROPRIETARY 


AH-BT13A-SE DIGI 
VAX/VMS V4.0 CONF 


281 


